home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / demo / sound / vnt_apt.lha / apt_install / install < prev    next >
Text File  |  1997-07-03  |  5KB  |  186 lines
  1.  
  2. (set app-name "Apatia by Venture")
  3.  
  4. (if(<(/(getversion)65536)39)
  5. (abort "Apatia needs at least OS3.0\n"))
  6. (complete 0)
  7.  
  8. (message
  9.     (cat    "\n\n\n\n\n\nWelcome to Apatia Installation Script.\n"
  10.             "(c)1997 Venture. All rights reserved."
  11.     )
  12. )
  13.  
  14.  
  15. (if(not(exists("ENVARC:Venture")))
  16. (makedir("ENVARC:Venture")))
  17. (copyfiles
  18.     (prompt    "Copying config file into ENVARC:Venture")
  19.     (help        #copy)
  20.     (source    "apt/apatia.config")
  21.     (dest        "ENVARC:Venture")
  22.     (nogauge)
  23. )
  24.  
  25. (if(not(exists("FONTS:UFOLarge")))
  26. (makedir("FONTS:UFOLarge")))
  27. (copyfiles
  28.     (prompt    "Copying fonts into your FONTS: directory")
  29.     (help        #copy)
  30.     (source    "fonts/UFOLarge.font")
  31.     (dest        "FONTS:")
  32. )
  33. (copyfiles
  34.     (prompt    "Copying fonts into your FONTS: directory")
  35.     (help        #copy)
  36.     (source    "fonts/UFOLarge/15")
  37.     (dest        "FONTS:UFOLarge")
  38. )
  39.  
  40. (complete 5)
  41.  
  42. (set vxpka (/(getversion "libs:xpkarchive.library")65536))
  43. (set vxpkm (/(getversion "libs:xpkmaster.library")65536))
  44. (set vxpkc (/(getversion "libs:compressors/xpkMASH.library")65536))
  45. (set rxpka (-(getversion "libs:xpkarchive.library")(* vxpka 65536)))
  46. (set rxpkm (-(getversion "libs:xpkmaster.library")(* vxpkm 65536)))
  47. (set rxpkc (-(getversion "libs:compressors/xpkMASH.library")(* vxpkc 65536)))
  48.  
  49. (set vxpka1 (/(getversion "libs/xpkarchive.library")65536))
  50. (set vxpkm1 (/(getversion "libs/xpkmaster.library")65536))
  51. (set vxpkc1 (/(getversion "libs/xpkMASH.library")65536))
  52. (set rxpka1 (-(getversion "libs/xpkarchive.library")(* vxpka1 65536)))
  53. (set rxpkm1 (-(getversion "libs/xpkmaster.library")(* vxpkm1 65536)))
  54. (set rxpkc1 (-(getversion "libs/xpkMASH.library")(* vxpkc1 65536)))
  55.  
  56. (set upd
  57.     (askchoice(choices "Update" "Dont")
  58.         (default 0)
  59.         (help "Xpkarchive.library by Matthias Meixner is required by the main program.")
  60.         (prompt ("\nCurrently installed xpkarchive.library: \n\nVersion : %ld.%ld\nVersion to install : %ld.%ld\n" vxpka rxpka vxpka1 rxpka1))
  61.     )
  62. )
  63. (copylib
  64.     (prompt    "Copying xpkarchive.library.")
  65.     (source    "libs/xpkarchive.library")
  66.     (dest        "libs:")
  67. )
  68.  
  69. (complete 10)
  70.  
  71. (set upd
  72.     (askchoice(choices "Update" "Dont")
  73.         (default 0)
  74.         (help "Xpkmaster.library by Urban Dominik Mueller, Bryan Ford,  Christian von Roques, Dirk Stoecker is required by the xpkarchive.library.")
  75.         (prompt ("\nCurrently installed xpkmaster.library: \n\nVersion : %ld.%ld\nVersion to install : %ld.%ld\n" vxpkm rxpkm vxpkm1 rxpkm1))
  76.     )
  77. )
  78. (copylib
  79.     (prompt    "Copying xpkmaster.library.")
  80.     (source    "libs/xpkmaster.library")
  81.     (dest        "libs:")
  82. )
  83.  
  84. (complete 15)
  85.  
  86. (if(not(exists("libs:compressors")))
  87. (makedir("libs:compressors")))
  88.  
  89. (set upd
  90.     (askchoice(choices "Update" "Dont")
  91.         (default 0)
  92.         (help "xpkMASH.library by Zdenek Kabelac is required by the xpkmaster.library.")
  93.         (prompt ("\nCurrently installed xpkMASH.library: \n\nVersion : %ld.%ld\nVersion to install : %ld.%ld\n" vxpkc rxpkc vxpkc1 rxpkc1))
  94.     )
  95. )
  96. (copylib
  97.     (prompt    "Copying xpkMASH.library.")
  98.     (source    "libs/xpkMASH.library")
  99.     (dest        "libs:compressors")
  100. )
  101.  
  102. (complete 20)
  103.  
  104. (set icons
  105.     (askchoice(choices "Arist" "Be" "IconoGFX" "MWB" "NewIcons")
  106.         (default 4)
  107.         (help "\nArist icons (drawer only) are (c) by Aristotelis Grammatikakis from Iraklio of Crete in Greece. Apatia (tool) and Setup icons are taken from NewIcons package (look -> NewIcons).\n\nBe icons are grabbed from BeBox.\n\nIconoGFX icons are (c) Tom Ekström. They are taken from IGFX package.\n\nMWB icons are ugly.\n\nNewIcons icons are taken from various packages by different authors (mostly from AESIcons). ")
  108.         (prompt ("Which set of icons would you prefer?"))
  109.     )
  110. )
  111.  
  112. (if(= icons 0)(set ic "icons/art"))
  113. (if(= icons 1)(set ic "icons/be"))
  114. (if(= icons 2)(set ic "icons/igfx"))
  115. (if(= icons 3)(set ic "icons/mwb"))
  116. (if(= icons 4)(set ic "icons/ni"))
  117.  
  118. (complete 25)
  119.  
  120. (set direk
  121.     (askdir
  122.         (prompt "Please select a place where you want to install Apatia.\nDrawer for it will be created there.")
  123.         (help "Just tell me where to put this production.")
  124.         (default "ram:")
  125.     )
  126. )
  127.  
  128. (if
  129.     (not(exists(tackon direk "Apatia_Drawer")))
  130.         (makedir(tackon direk "Apatia_Drawer")
  131.     )
  132. )
  133.  
  134. (copyfiles
  135.     (prompt    "Copying Apatia files into " direk)
  136.     (source    (tackon ic "Apatia_Drawer.info"))
  137.     (dest        direk)
  138.     (infos)
  139. )
  140.  
  141. (set direk(tackon direk "Apatia_Drawer"))
  142.  
  143. (complete 30)
  144.  
  145. (copyfiles
  146.     (prompt    "Copying Apatia files into " direk)
  147.     (source    "apt/apatia")
  148.     (dest        direk)
  149. )
  150.  
  151. (complete 40)
  152.  
  153. (copyfiles
  154.     (prompt    "Copying Apatia files into " direk)
  155.     (source    (tackon ic "Apatia.info"))
  156.     (dest        direk)
  157.     (infos)
  158. )
  159.  
  160. (complete 45)
  161.  
  162. (copyfiles
  163.     (prompt    "Copying Apatia files into " direk)
  164.     (source    "apt/apt.xar")
  165.     (dest        direk)
  166. )
  167.  
  168. (complete 90)
  169.  
  170. (copyfiles
  171.     (prompt    "Copying Apatia files into " direk)
  172.     (source    "apt/setup")
  173.     (dest        direk)
  174. )
  175.  
  176. (complete 95)
  177.  
  178. (copyfiles
  179.     (prompt    "Copying Apatia files into " direk)
  180.     (source    (tackon ic "Setup.info"))
  181.     (dest        direk)
  182.     (infos)
  183. )
  184.  
  185. (complete 100)
  186.